O aplikaci
Otázka od: M.Babik@mus.cz
11. 9. 2002 13:52
Zdravim vespolek!
Jak zjistim podrobnosti o aplikaci, jez se zadavaji do project. Jako je
FileVersion, FileDescription,InternalName atd. Dik
M&B
Odpovedá: campulka
11. 9. 2002 17:12
TVerInfo
na
http://www.campulka.net/?dir=Delphi%20komponenty
Jirka.
> -----Original Message-----
> From: delphi-l-owner@clexpert.cz
> [mailto:delphi-l-owner@clexpert.cz]On Behalf Of M.Babik@mus.cz
> Sent: Wednesday, September 11, 2002 11:02 AM
> To: delphi-l@clexpert.cz
> Subject: O aplikaci
>
>
> Zdravim vespolek!
> Jak zjistim podrobnosti o aplikaci, jez se zadavaji do
> project. Jako je FileVersion, FileDescription,InternalName atd. Dik
>
>
> M&B
>
Odpovedá: Vymazal Milan
12. 9. 2002 3:23
Hello M,
Wednesday, September 11, 2002, 11:01:40 AM, you wrote:
MBmc> Zdravim vespolek!
MBmc> Jak zjistim podrobnosti o aplikaci, jez se zadavaji do project. Jako je
FileVersion, FileDescription,InternalName atd. Dik
uz to tu bylo
function GetFileVersion(Soubor: String): String;
const
VerFixedInfo: PChar = '\';
var
Size : DWORD;
Sz : ULONG;
Handle: THandle;
Buffer: string;
FFixedBuffer: PVSFixedFileInfo;
begin
Size := GetFileVersionInfoSize(PChar(Soubor), Handle);
if Size > 0 then
begin
SetLength(Buffer, Size);
GetFileVersionInfo(PChar(Soubor), Handle, Size, PChar(Buffer));
end;
VerQueryValue(PChar(Buffer), VerFixedInfo, Pointer(FFixedBuffer), Sz);
with FFixedBuffer^ do
begin
Result:= IntToStr(dwFileVersionMS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionMS and $FFFF) + '.';
Result:= Result + IntToStr(dwFileVersionLS shr 16) + '.';
Result:= Result + IntToStr(dwFileVersionLS and $FFFF);
end;
end;
MBmc> M&B
--
Best regards,
Vymazal mailto:vymazal.milan@seznam.cz
Odpovedá: M.Babik@mus.cz
12. 9. 2002 20:54
Mel jsem na mysli neco jednodussiho. Slo mi o verzi atd. u aplikaze s kterou
programuji. Chtel bych dynamicky plnit verzi v about a prislo mi
"GetFileVersion" jako drbani leve tvare pravou rukou za temenem. 
M&B
Odpovedá: Ondrej Kelle
13. 9. 2002 10:32
> Mel jsem na mysli neco jednodussiho. Slo mi o verzi atd. u
> aplikaze s kterou programuji. Chtel bych dynamicky plnit
> verzi v about a prislo mi "GetFileVersion" jako drbani leve
> tvare pravou rukou za temenem.
Stiahni si JCL z www.delphi-jedi.org a mas tam objekt TJclFileVersionInfo v
unite JclFileUtils.
HTH
TOndrej
Odpovedá: Jan Šimecký
14. 9. 2002 18:26
Nevim jestli ti nekdo odpovedel a dale nevim jestli si rozumime, ale ja si
myslim ze chces vedet toto:
1. klikni na na soubor zkompilovanym programe opacnym tlacitkem mysi, nez
spoustis programi(cili pro pravaky prave)
2. vyber ze seznamu vlastnosti
3. Zde mas v nabidce Obecne a Verze, tam jsou tyto informace.
S pozdravem
@@@@@@@
\ ~ ~ /
(\ @ @ /)
-------oOOO--(_)--OOOo-------
Jan Šimecký
simecky@centrum.cz
http://www.simecky.tk
http://www.reklalink.tk
ooO
----------( )--Ooo---------
\ ( ( )
\_) ) /
(_)
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz]On
Behalf Of M.Babik@mus.cz
Sent: Wednesday, September 11, 2002 11:02 AM
To: delphi-l@clexpert.cz
Subject: O aplikaci
Zdravim vespolek!
Jak zjistim podrobnosti o aplikaci, jez se zadavaji do project. Jako je
FileVersion, FileDescription,InternalName atd. Dik
M&B
---
Příchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.380 / Virová báze: 213 - datum vydání: 24.7.2002
---
Odchozí zpráva neobsahuje viry.
Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz).
Verze: 6.0.380 / Virová báze: 213 - datum vydání: 24.7.2002